home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 75 / XENIATGM75.iso / Shareware / X-Setup 5.0 / _SETUP.1 / XQ WinNT Compress Color 1.xpl < prev    next >
Text File  |  1999-07-20  |  2KB  |  87 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "TEXT 1"="Set Color"
  5. "TEXT 2"="Reset Color"
  6. "UIPATH"="Appearance\Explorer\Files"
  7. "NAME"="Compressed Files Color"
  8. "VERSION"="1.22"
  9. "LANGUAGE"="VBScript"
  10. "DESCRIPTION 1"="Windows uses a special color to identify compressed files inside the Explorer.
  11. "DESCRIPTION 2"="You can set this color here or reset it to the default color by clicking on "Reset Color"."
  12. "DESCRIPTION 3"="Please note that this plug-in is only for Windows NT. Compressed Folders from Microsoft Plus! 98 are not the same as Compressed Files in Windows NT."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16.  
  17.  
  18. 'Cyan 00 FF FF
  19. 'Magenta FF 00 FF
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\AltColor"
  21. Sub Plugin_Initialize 
  22.  if GetWinVer=2 then
  23.                                'Farbe RR GG BB
  24.   Call SetUIElement(1,"Red")   'FF 00 00
  25.   Call SetUIElement(2,"Green") '00 FF 00
  26.   Call SetUIElement(3,"Blue")  '00 00 FF
  27.   Call SetUIElement(4,"Yellow")'Gelb FF FF 00
  28.   Call SetUIElement(5,"White") 'Wei▀ FF FF FF
  29.   Call SetUIElement(6,"Black") 'Schwarz 00 00 00
  30.   Call SetUIElement(6,"Brown") 'Braun A5 2A 2A
  31.  else
  32.   Disable
  33.  end if
  34. End Sub
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  If ElementIndex=1 then 'Set Color
  41.     if ElementSubIndex=0 then 
  42.        Call MsgWarning("No item selected - please select an item first.")
  43.        Exit sub
  44.     end if
  45.  
  46.     s=""
  47.  
  48.     Select Case ElementSubIndex
  49.     Case 1 'Red
  50.      s="FF0000"
  51.     Case 2 'Green
  52.      s="00FF00"
  53.     Case 3 'Blue
  54.      s="00000FF"
  55.     Case 4 'Yellow
  56.      s="FFFF00"
  57.     Case 5 'White
  58.      s="FFFFFF"
  59.     Case 6 'Black
  60.      s="000000"
  61.     Case 7 'Brown
  62.      s="A52A2A"
  63.  
  64.     End Select
  65.  
  66.     Call RegWriteValue(sp,s,3)    
  67.     Call MsgInformatioN("The new color has been set")
  68.  
  69.  else 'Reset Color
  70.     s=RegReadValue(sp)
  71.     if not IsEmpty(s) then
  72.        Call RegDeleteValue(sp)
  73.     end if       
  74.  
  75.     Call MsgInformatioN("The default color has been restored")
  76.  end if
  77.  
  78.  
  79.  Call Restart
  80. End Sub
  81.  
  82. Sub Plugin_Terminate 
  83. End Sub
  84.  
  85.  
  86.  
  87.